home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 6: Level 6 / 17 Bit - Level 6 (1998)(Epic Marketing)[!].iso / quartz / q0498.dms / q0498.adf / DGEN < prev    next >
Text File  |  1979-12-31  |  3KB  |  166 lines
  1. curdsk=1
  2. colour=1
  3. yyval=12
  4. skipdel=0
  5.  
  6. cpytitl:dc.b "Lockpick Fast Copier Request",0
  7. cpyques:dc.b "Do you need a copy of the original?",0
  8. copyrst:dc.b "Proceeding with Fast Copy of remaining disks...",0
  9.  
  10. nxtdskm:dc.b "Copy disk "
  11. dskm1:    dc.b "00 of "
  12. dskm2:    dc.b "00?",0
  13.  
  14. docopy=simplereq(cpytitl,cpyques)
  15. cmp docopy,0,0,goto start
  16. connect=drives()
  17. cmp connect,-1,0,goto byebye
  18. poke(remdsk+19,connect+48)
  19. poke(insdsk2+6,connect+48)
  20. drivenum=fcopy(connect,1)
  21. cmp drivenum,0,-1,goto byebye2
  22.  
  23. pnf:    dc.b "Protection not found!",0
  24. pnf2:    dc.b "*** PARAMETER FAILED! ***",0
  25. worktxt:dc.b "Working, please stand by...",0
  26.  
  27. prof:    dc.b "*** Parameter Successful! ***",0
  28. remdsk:    dc.b "Remove disk from DF0: then click in this window...",0
  29.  
  30. insdsk:    dc.b "Insert BACKUP of",0
  31. insdsk2:dc.b " in DF0: then click in this window...",0
  32.  
  33.     dc.w 0
  34. oritab:    dc.l orig1,fix1,orig2,fix2,orig3,fix3,orig4,fix4,orig5,fix5
  35.     dc.l orig6,fix6,orig7,fix7,orig8,fix8,orig9,fix9
  36.     dc.l orig10,fix10,orig11,fix11,orig12,fix12,orig13,fix13
  37.     dc.l orig14,fix14,orig15,fix15,orig16,fix16,orig17,fix17
  38.     dc.l orig18,fix18,orig19,fix19,orig20,fix20,orig21,fix21
  39.     dc.l orig22,fix22,orig23,fix23,orig24,fix24,orig25,fix25
  40.     dc.l orig26,fix26,orig27,fix27,orig28,fix28,orig29,fix29
  41.     dc.l orig30,fix30,orig31,fix31,orig32,fix32,orig33,fix33
  42.     dc.l orig34,fix34,orig35,fix35,orig36,fix36,orig37,fix37
  43.     dc.l orig38,fix38,orig39,fix39,orig40,fix40,orig41,fix41
  44.     dc.l orig42,fix42,orig43,fix43,orig44,fix44,orig45,fix45
  45.     dc.l 0,0
  46.  
  47. * Open Window and print intro text...
  48. start:    validate(drivenum,1)
  49.     cmp ^winname,"con:",0,winname=winname+18
  50.     pokel(wtitle,winname)
  51.     gosub openwin
  52.     cmp docopy,1,0,goto main
  53.  
  54.     gosub remm
  55.  
  56.     txtptr=insdsk
  57.     gosub print3d
  58.     colour=3
  59.     txtptr=dname
  60.     gosub print3d
  61.     colour=1
  62.     txtptr=insdsk2
  63.     gosub print3d
  64.  
  65.     gosub waitsgn
  66.     cmp class,$200000,2,goto chkclow
  67.     cmp code,$1b,0,goto remprta
  68. chkclow:cmp class,$200,0,goto remprta
  69.     skipdel=1
  70.  
  71. main:    txtptr=worktxt
  72.     gosub print3d
  73.  
  74.     cmp skipdel,0,2,goto begit
  75.     delay(100)
  76.  
  77. begit:    pos=0
  78.     pointer=oritab
  79.  
  80. looper:    orig=^pointer
  81.     pointer=pointer+4
  82.     fix=^pointer
  83.     pointer=pointer+4
  84.     pval=^pointer
  85.     cmp pval,0,0,top=garbage
  86.     cmp pval,0,2,top=pval
  87.  
  88. * Scan file for our string and replace if found...
  89.     pos=dscan(drivenum,orig,fix-orig,fix,top-fix,pos,hfix)
  90.     cmp pos,-2,0,goto errpnf
  91.  
  92.     cmp pval,0,2,goto looper
  93.  
  94.     txtptr=prof
  95.     gosub print3d
  96.  
  97.     delay(100)
  98.     cmp note1,0,0,goto ky1
  99.     colour=3
  100.     txtptr=note1
  101.     gosub print3d
  102.     cmp note2,0,0,goto ky1
  103.     txtptr=note2
  104.     gosub print3d
  105.     cmp note3,0,0,goto ky1
  106.     txtptr=note3
  107.     gosub print3d
  108.  
  109. ky1:    colour=1
  110.     yyval=yyval+10
  111.     txtptr=remdsk
  112.     gosub print3d
  113. ky2:    gosub remm
  114.     gosub waitsgn
  115.     cmp mess,0,0,goto ky2
  116.  
  117.     cmp numdsk,2,-1,goto bye0
  118.     yyval=yyval+10
  119.     txtptr=copyrst
  120.     gosub print3d
  121.     delay(50)
  122.  
  123. ky3:    curdsk=curdsk+1
  124.     cmp curdsk,numdsk,1,goto bye0
  125.     
  126.     tensv=curdsk/10&$ffff
  127.     onesv=tensv*10
  128.     onesv=curdsk-onesv
  129.     poke(dskm1,tensv+48)
  130.     poke(dskm1+1,onesv+48)
  131.  
  132.     tensv=numdsk/10&$ffff
  133.     onesv=tensv*10
  134.     onesv=numdsk-onesv
  135.     poke(dskm2,tensv+48)
  136.     poke(dskm2+1,onesv+48)
  137.  
  138.     docopy=simplereq(cpytitl,nxtdskm)
  139.     cmp docopy,1,-1,goto bye0
  140.     drivenum=fcopy(connect,-1)
  141.     cmp drivenum,0,-1,goto bye0
  142.     goto ky3
  143.  
  144. keyout:    gosub remm
  145.     gosub waitsgn
  146.     cmp mess,0,0,goto keyout
  147. bye0:    gosub closwin
  148. byebye:    validate(drivenum,0)
  149. byebye2:end
  150.  
  151. errpnf:    txtptr=pnf
  152.     gosub print3d
  153.     goto prii5a
  154.  
  155. remprt:    delay(150)
  156. remprta:yyval=yyval+10
  157.     txtptr=remdsk
  158.     gosub print3d
  159.     goto keyout
  160.  
  161. prii5a:    txtptr=pnf2
  162.     gosub print3d
  163.     goto remprt
  164.  
  165. #i "Params:WINHAND"
  166.